home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0286.arc / EXOTIC2.LTG < prev    next >
Text File  |  1986-02-03  |  768b  |  25 lines
  1.  
  2.                             Listing 2
  3.  
  4. program ratfor #Main program
  5. logical openio
  6. CHARACTER name(10),readwr(2)
  7. integer luns(2)
  8. data luns/STDIN,STDOUT/,readwr/LETR,LETW/
  9. call remark('TRS-80 RATFOR.')
  10. do ifile=1,2 #Open input and output files
  11.     (
  12.     do i=1,3 #Three tries to get it right
  13.         (
  14.         if(ifile==1) call remark('Input file name?    .')
  15.         else call remark('Output file name?    .')
  16.         read 1000,name;    1000 format(10a1)
  17.         if(openio(name,luns(ifile),readwr(ifile))) next 2 #Skip to next outer loop if open OK
  18.         )
  19.     call error('Too many tries.') #Exit if either LUN not opened
  20.     )
  21. call parse #Translate RATFOR program to FORTRAN object file
  22. call remark('RATFOR translation complete.')
  23. end
  24.  
  25.